home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / MacFormat 92 CD / Shareware Plus / Utilities / FolderSynchronizer 1.8.9 / FoldersSynchronizer / FoldersSynchronizer.9 / AllScripts_40.ls < prev    next >
Encoding:
Text File  |  2000-05-10  |  880 b   |  30 lines
  1. on mouseDown me
  2.   global gOnErrorDo
  3.   set mySprite to the spriteNum of me
  4.   set myMember to the member of sprite mySprite
  5.   if the type of myMember = #bitmap then
  6.     set mySprite to the spriteNum of me
  7.   else
  8.     set mySprite to the spriteNum of me - 1
  9.   end if
  10.   set myBtnUp to the name of member the member of sprite mySprite
  11.   set myLabel to the name of member the member of sprite (mySprite + 1)
  12.   set finalValue to value(the last char in myLabel)
  13.   set myRoll to the rollOver
  14.   repeat while the stillDown
  15.     if the rollOver = myRoll then
  16.       set the member of sprite mySprite to BtnDw(myBtnUp)
  17.     else
  18.       set the member of sprite mySprite to myBtnUp
  19.     end if
  20.     updateStage()
  21.   end repeat
  22.   if the rollOver = myRoll then
  23.     set gOnErrorDo to finalValue
  24.     SetRadiogOnErrorDo()
  25.   else
  26.     set the member of sprite mySprite to myBtnUp
  27.   end if
  28.   updateStage()
  29. end
  30.